home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / EGAVGA.SWG / 0102_VGA Text Fonts.pas < prev    next >
Pascal/Delphi Source File  |  1994-05-25  |  814b  |  42 lines
  1. {
  2.  ▒   Hey.. AnyBody out there know how to change TEXT fonts w/ Pascal?
  3.  ▒ Any routines would be apprecited....
  4.  
  5. Yes, a friend of mine made a text font editor, a couple of years ago, but it
  6. would be too long to post it in this conference. You may use this routine to
  7. set a 8x16 text font.
  8.  
  9. You should pass to this procedure an array of 4096 bytes. This array should
  10. contain the whole 256 character set, structured in blocks of 16 bytes for
  11. each char:
  12.  
  13. {------Cut Here------}
  14.  
  15. Unit Fonts;
  16.  
  17. Interface
  18.  
  19. Type TextFont=Array[0..4095] of byte;
  20.  
  21. Procedure ActivateFont(Block:Textfont);
  22.  
  23. Implementation
  24.  
  25. Procedure ActivateFont; Assembler;
  26. Asm
  27.   push es
  28.   mov ax,1100h
  29.   mov bx,1000h
  30.   mov cx,100h
  31.   xor dx,dx
  32.   push bp
  33.   les bp,Block
  34.   int 10h
  35.   pop bp
  36.   pop es
  37. End;
  38.  
  39. Begin
  40. End.
  41.  
  42.